#AA
<to_2>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,0,0,0); changemap(Agln); mapname(0); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); changemap(Agln); mapname(0); fade(in,(type=mosaic,wait=16));
#fade(mosaic,1,256,def); fc(move,*actor,2,0,0,0); changemap(Agln); mapname(0); fade(mosaic,2,256,def);
#text(1,face=uam,̃GAɂ͉B);
#evflagsw(cavesaitan,=,1);


#Aoij
<out_w>
fade(out,(type=holcircle,color=000000,wait=16)); fc(*actor,move,23,-4,center); fc(*actor,dir,=,l); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#Aoij
<out_e>
zukan(warppos:*all,|=,cv1_e);
fade(out,(type=holcircle,color=000000,wait=16)); fc(*actor,move,26,-4,center); fc(*actor,dir,=,r); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#Aoikj
<out_n>
fade(out,(type=holcircle,color=000000,wait=16)); fc(*actor,move,34,-22,center); fc(*actor,dir,=,r); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#򑐔@
<shop_chyaku>
#member(head,name,print);

text(1,face=uam,w%it[*chyaku].nmicxĂB);
label(7);
select2(reset,all); select2(+@200~(id=0)); select2(+@100~(id=1)); select2(+߂); item(print,chyaku); select2(*: %pty[e].gd\n: %ev[*nowval].w(cid=));
label(4);

evflag(*selected,==,0); if(nowres);
party(,gold,>=,200); if(nowres); item(get,chyaku,1); if(nowres); party(,gold,+=,-200); text(0,%it[*chyaku]𔃂);
select2(reset,all); select2(+Ɣ(id=0)); select2(+߂); item(print,chyaku); select2(*: %pty[e].gd\n: %ev[*nowval].w(cid=)); goto(4);
else; text(0,%it[*chyaku]͂ȏ͎ĂȂB); endif;
else; text(0,ȂI); endif;
end;
endif;

evflag(*selected,==,1); if(nowres);
party(,gold,<,9999999999999999); if(nowres); item(lost,chyaku,1); if(nowres); party(,gold,+=,100); text(0,%it[*chyaku]𔄂B);
select2(reset,all); select2(+Ɣ(id=1)); select2(+߂); item(print,chyaku); select2(*: %pty[e].gd\n: %ev[*nowval].w(cid=)); goto(4);
else; text(0,%it[*chyaku]ĂȂB); endif;
else; text(0,ztI); endif;
end;
endif;

#party(,gold,>=,20000); if(nowres); text(1,,Qȏ); else; text(1,,Q); endif;
#party(,gold,<=,20000); if(nowres); text(1,,Qȉ); else; text(1,,Q); endif;
#party(,gold,=,4075);


#̋@iAj
<shop2>
#text(1,face=uam,̔^@B\n%ct3̏ڍ׉ʂ͂`Er܂̓eL[PERŃy[W؂ւs܂B%cd);
select2(reset,all); select2(adddtp,sysm,itbuy,); select2(adddtp,sysm,itsell,);
while;
select2(*@(cid=));
if(evf(*selected)==id(sysm:itbuy)); buy(shop2,only); next; endif;
if(evf(*selected)==id(sysm:itsell)); item(sell,); next; endif;
wend;


#̋@iAj
<shop3>
text(1,face=uam,̔^@B);
select2(reset,all); select2(adddtp,sysm,itbuy,); select2(adddtp,sysm,itsell,); select2(+(id=0,ic=question));
while;
select2(*@(cid=));
if(evf(*selected)==id(sysm:itbuy)); buy(shop3,only); next; endif;
if(evf(*selected)==id(sysm:itsell)); item(sell,); next; endif;
if(evf(*selected)==0);
text(1,face=+evfch,ꕔ̏i͓荢ɂAliɍĂ܂Bʂ̏ꏊȂ炻łȂ܂B);
zukan(warppos:*all,&,hideshop); if(nowres); text(1,face=uam,wʂ̏ꏊxƂ́A%map[*nCp[v[]̉B̔@̎悤B); endif;
next; endif;
wend;
#ł͈ꕔABVbv̏ilŔĂB


#Ŕ`A
<hint>
text(1,face=+evfch,uK̃GAɂ̓ACeĂBȂɓKɊKi~肵ĂΌ邳B̊Kɖ߂蒼璍ӂȂv\nƏĂB);
#text(1,face=+evfch,uK̃GAɂ̓ACeĂBȂɓKɂĂΌ邳B̊Kɖ߂蒼璍ӂȂv\nƏĂB);
zukan(item:caskey,==,1); if(nowres); text(1,face=uam,w%it[*caskey].nmicxɎ邽߂ׂ̓悤B); endif;
#item(check:aleq|alpt|bank,caskey,1);
#item(check:aleq|alpt|bank,caskey,1); if(nowres); text(0,w%it[*caskey].nmicx͊ɓ肵ĂB); endif;
#item(check:aleq|alpt|bank,caskey,1); if(nowres); text(1,,ɓ肵w%it[*caskey].nmicxɂĂ̏̂悤B); endif;